#!/usr/bin/perl

package Commands::Example;

use strict;
use warnings;

# 修正加载语句
require Commands::BaseCommand;
use base 'Commands::BaseCommand';

use Exporter 'import';

our @EXPORT_OK = qw(new execute);

sub new
{
    my ($class) = @_;
    my $self = $class->SUPER::new();
    return $self;
}

# 实现 execute 方法
sub list {
    my ($self) = @_;
    # 这里可以添加具体的执行逻辑
    print "Example list command is executing.\n";
}

1;
